(rmail-output-to-rmail-file): When writing the

Babyl header to the newly-created output file, bind
coding-system-for-write to either rmail-file-coding-system or
emacs-mule-unix.

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index 3b7ea24fd7495fbe3d23e1f3f9ac7d13f302947d..d3fd35916cd2b28c1f8d731af6a2ffbf025655eb 100644 (file)
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -145,7 +145,10 @@ mesasge up instead of moving forward to the next non-deleted message."
              (save-excursion
                (set-buffer file-buffer)
                (rmail-insert-rmail-file-header)
-               (let ((require-final-newline nil))
+               (let ((require-final-newline nil)
+                     (coding-system-for-write
+                      (or rmail-file-coding-system
+                          'emacs-mule-unix)))
                  (write-region (point-min) (point-max) file-name t 1)))
              (kill-buffer file-buffer))
          (error "Output file does not exist")))